home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
p-s.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-23
|
914b
|
29 lines
10 PRINT " PARALLEL TO SERIES CONVERSION"
11 PRINT
15 INPUT "ENTER PARALLEL RESISTANCE (RP)"; RP
20 INPUT "ENTER PARALLEL REACTANCE (XP) (-) IF CAPACITIVE"; XP
25 RS = RP * XP^2/(RP^2 + XP^2)
30 XS = RS * RP/XP
35 ZS = (RS^2 + XS^2)^.5
40 W = 57.29578
45 A = (ATN(XS/RS))*W
50 GP = 1/RP
55 BP = -1/XP
60 YP = 1/ZS
65 AB = -A
100 PRINT
101 PRINT " ***ANSWERS***"
102 PRINT
105 PRINT RP, "PARALLEL RESISTANCE (RP)"
110 PRINT XP, "PARALLEL REACTANCE (XP)"
115 PRINT RS, "SERIES RESISTANCE (RP)"
120 PRINT XS, "SERIES REACTANCE (XS)"
125 PRINT ZS, "SERIES IMPEDANCE (ZS)"
130 PRINT A, "PHASE ANGLE OF SERIES IMPEDANCE"
135 PRINT GP, "PARALLEL CONDUCTANCE (GP)"
140 PRINT BP, "PARALLEL SUSCEPTANCE (BP)"
145 PRINT YP, "PARALLEL ADMITTANCE (YP)"
150 PRINT AB, "PHASE ANGLE OF PARALLEL ADMITTANCE"
155 PRINT ZS;RS;XS, "ZS = RS + jXS"
160 PRINT YP;GP;BP, "YP = GP + jBP"